home *** CD-ROM | disk | FTP | other *** search
/ Inter.Net 55-1 / Inter.Net 55-1.iso / CBuilder / Setup / BCB / data.z / comobj.hpp < prev    next >
Encoding:
C/C++ Source or Header  |  1998-02-09  |  19.7 KB  |  473 lines
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1998 by Borland International
  3. // All rights reserved
  4.  
  5. // (DO NOT EDIT: machine generated header) 'ComObj.pas' rev: 3.00
  6.  
  7. #ifndef ComObjHPP
  8. #define ComObjHPP
  9. #include <SysUtils.hpp>
  10. #include <ActiveX.hpp>
  11. #include <Windows.hpp>
  12. #include <SysInit.hpp>
  13. #include <System.hpp>
  14.  
  15. //-- user supplied -----------------------------------------------------------
  16.  
  17. namespace Comobj
  18. {
  19. //-- type declarations -------------------------------------------------------
  20. class DELPHICLASS TComServerObject;
  21. class PASCALIMPLEMENTATION TComServerObject : public System::TObject 
  22. {
  23.     typedef System::TObject inherited;
  24.     
  25. protected:
  26.     virtual int __fastcall CountObject(bool Created) = 0;
  27.     virtual int __fastcall CountFactory(bool Created) = 0;
  28.     virtual System::AnsiString __fastcall GetHelpFileName(void) = 0;
  29.     virtual System::AnsiString __fastcall GetServerFileName(void) = 0;
  30.     virtual System::AnsiString __fastcall GetServerKey(void) = 0;
  31.     virtual System::AnsiString __fastcall GetServerName(void) = 0;
  32.     virtual _di_ITypeLib __fastcall GetTypeLib(void) = 0;
  33.     
  34. public:
  35.     __property System::AnsiString HelpFileName = {read=GetHelpFileName};
  36.     __property System::AnsiString ServerFileName = {read=GetServerFileName};
  37.     __property System::AnsiString ServerKey = {read=GetServerKey};
  38.     __property System::AnsiString ServerName = {read=GetServerName};
  39.     __property _di_ITypeLib TypeLib = {read=GetTypeLib};
  40. public:
  41.     /* TObject.Create */ __fastcall TComServerObject(void) : System::TObject() { }
  42.     /* TObject.Destroy */ __fastcall virtual ~TComServerObject(void) { }
  43.     
  44. };
  45.  
  46. class DELPHICLASS TComObjectFactory;
  47. typedef void __fastcall (__closure *TFactoryProc)(TComObjectFactory* Factory);
  48.  
  49. class DELPHICLASS TComClassManager;
  50. class PASCALIMPLEMENTATION TComClassManager : public System::TObject 
  51. {
  52.     typedef System::TObject inherited;
  53.     
  54. private:
  55.     TComObjectFactory* FFactoryList;
  56.     void __fastcall AddObjectFactory(TComObjectFactory* Factory);
  57.     void __fastcall RemoveObjectFactory(TComObjectFactory* Factory);
  58.     
  59. public:
  60.     void __fastcall ForEachFactory(TComServerObject* ComServer, TFactoryProc FactoryProc);
  61.     TComObjectFactory* __fastcall GetFactoryFromClass(System::TMetaClass* ComClass);
  62.     TComObjectFactory* __fastcall GetFactoryFromClassID(const GUID &ClassID);
  63. public:
  64.     /* TObject.Create */ __fastcall TComClassManager(void) : System::TObject() { }
  65.     /* TObject.Destroy */ __fastcall virtual ~TComClassManager(void) { }
  66.     
  67. };
  68.  
  69. class DELPHICLASS TComObject;
  70. class PASCALIMPLEMENTATION TComObject : public System::TObject 
  71. {
  72.     typedef System::TObject inherited;
  73.     
  74. private:
  75.     void *__IUnknown;    /* IUnknown [_Release=ObjRelease, _AddRef=ObjAddRef, QueryInterface=ObjQueryInterface
  76.         ] */
  77.     void *__ISupportErrorInfo;    /* ISupportErrorInfo */
  78.     
  79. public:
  80.     operator ISupportErrorInfo*(void) { return (ISupportErrorInfo*)&__ISupportErrorInfo; }
  81.     operator IUnknown*(void) { return (IUnknown*)&__IUnknown; }
  82.     
  83. private:
  84.     int FRefCount;
  85.     TComObjectFactory* FFactory;
  86.     void *FController;
  87.     _di_IUnknown __fastcall GetController(void);
  88.     
  89. protected:
  90.     HRESULT __stdcall QueryInterface(const GUID &IID, /* out */ void *Obj);
  91.     int __stdcall _AddRef(void);
  92.     int __stdcall _Release(void);
  93.     HRESULT __stdcall InterfaceSupportsErrorInfo(const GUID &iid);
  94.     
  95. public:
  96.     __fastcall TComObject(void);
  97.     __fastcall TComObject(const _di_IUnknown Controller);
  98.     __fastcall TComObject(TComObjectFactory* Factory, const _di_IUnknown Controller);
  99.     __fastcall virtual ~TComObject(void);
  100.     virtual void __fastcall Initialize(void);
  101.     virtual int __stdcall ObjAddRef(void);
  102.     virtual HRESULT __stdcall ObjQueryInterface(const GUID &IID, /* out */ void *Obj);
  103.     virtual int __stdcall ObjRelease(void);
  104.     virtual HRESULT __fastcall SafeCallException(System::TObject* ExceptObject, void * ExceptAddr);
  105.     __property _di_IUnknown Controller = {read=GetController};
  106.     __property TComObjectFactory* Factory = {read=FFactory};
  107.     __property int RefCount = {read=FRefCount, nodefault};
  108. };
  109.  
  110. typedef System::TMetaClass*TComClass;
  111.  
  112. enum TClassInstancing { ciInternal, ciSingleInstance, ciMultiInstance };
  113.  
  114. class PASCALIMPLEMENTATION TComObjectFactory : public System::TObject 
  115. {
  116.     typedef System::TObject inherited;
  117.     
  118. private:
  119.     void *__IUnknown;    /* IUnknown */
  120.     void *__IClassFactory;    /* IClassFactory */
  121.     void *__IClassFactory2;    /* IClassFactory2 */
  122.     
  123. public:
  124.     operator IClassFactory2*(void) { return (IClassFactory2*)&__IClassFactory2; }
  125.     operator IClassFactory*(void) { return (IClassFactory*)&__IClassFactory; }
  126.     operator IUnknown*(void) { return (IUnknown*)&__IUnknown; }
  127.     
  128. private:
  129.     TComObjectFactory* FNext;
  130.     TComServerObject* FComServer;
  131.     System::TMetaClass*FComClass;
  132.     GUID FClassID;
  133.     System::AnsiString FClassName;
  134.     System::AnsiString FDescription;
  135.     GUID FErrorIID;
  136.     TClassInstancing FInstancing;
  137.     System::WideString FLicString;
  138.     int FRegister;
  139.     bool FShowErrors;
  140.     bool FSupportsLicensing;
  141.     
  142. protected:
  143.     virtual System::AnsiString __fastcall GetProgID(void);
  144.     virtual System::WideString __fastcall GetLicenseString(void);
  145.     virtual bool __fastcall HasMachineLicense(void);
  146.     virtual bool __fastcall ValidateUserLicense(const System::WideString LicStr);
  147.     HRESULT __stdcall QueryInterface(const GUID &IID, /* out */ void *Obj);
  148.     int __stdcall _AddRef(void);
  149.     int __stdcall _Release(void);
  150.     HRESULT __stdcall CreateInstance(const _di_IUnknown UnkOuter, const GUID &IID, /* out */ void *Obj)
  151.         ;
  152.     HRESULT __stdcall LockServer(BOOL fLock);
  153.     HRESULT __stdcall GetLicInfo(tagLICINFO &licInfo);
  154.     HRESULT __stdcall RequestLicKey(int dwResrved, /* out */ System::WideString &bstrKey);
  155.     HRESULT __stdcall CreateInstanceLic(const _di_IUnknown unkOuter, const _di_IUnknown unkReserved, const 
  156.         GUID &iid, const System::WideString bstrKey, /* out */ void *vObject);
  157.     
  158. public:
  159.     __fastcall TComObjectFactory(TComServerObject* ComServer, System::TMetaClass* ComClass, const GUID 
  160.         &ClassID, const System::AnsiString ClassName, const System::AnsiString Description, TClassInstancing 
  161.         Instancing);
  162.     __fastcall virtual ~TComObjectFactory(void);
  163.     virtual TComObject* __fastcall CreateComObject(const _di_IUnknown Controller);
  164.     void __fastcall RegisterClassObject(void);
  165.     virtual void __fastcall UpdateRegistry(bool Register);
  166.     __property GUID ClassID = {read=FClassID};
  167.     __property System::AnsiString ClassName = {read=FClassName};
  168.     __property System::TMetaClass* ComClass = {read=FComClass};
  169.     __property TComServerObject* ComServer = {read=FComServer};
  170.     __property System::AnsiString Description = {read=FDescription};
  171.     __property GUID ErrorIID = {read=FErrorIID, write=FErrorIID};
  172.     __property System::WideString LicString = {read=FLicString, write=FLicString};
  173.     __property System::AnsiString ProgID = {read=GetProgID};
  174.     __property TClassInstancing Instancing = {read=FInstancing, nodefault};
  175.     __property bool ShowErrors = {read=FShowErrors, write=FShowErrors, nodefault};
  176.     __property bool SupportsLicensing = {read=FSupportsLicensing, write=FSupportsLicensing, nodefault};
  177.         
  178. };
  179.  
  180. class DELPHICLASS TTypedComObject;
  181. class PASCALIMPLEMENTATION TTypedComObject : public Comobj::TComObject 
  182. {
  183.     typedef Comobj::TComObject inherited;
  184.     
  185. private:
  186.     void *__IProvideClassInfo;    /* IProvideClassInfo */
  187.     
  188. public:
  189.     operator IProvideClassInfo*(void) { return (IProvideClassInfo*)&__IProvideClassInfo; }
  190.     
  191. protected:
  192.     HRESULT __stdcall GetClassInfo(/* out */ _di_ITypeInfo &TypeInfo);
  193. public:
  194.     /* TComObject.Create */ __fastcall TTypedComObject(void) : Comobj::TComObject() { }
  195.     /* TComObject.CreateAggregated */ __fastcall TTypedComObject(const _di_IUnknown Controller) : Comobj::
  196.         TComObject(Controller) { }
  197.     /* TComObject.CreateFromFactory */ __fastcall TTypedComObject(TComObjectFactory* Factory, const _di_IUnknown 
  198.         Controller) : Comobj::TComObject(Factory, Controller) { }
  199.     /* TComObject.Destroy */ __fastcall virtual ~TTypedComObject(void) { }
  200.     
  201. };
  202.  
  203. typedef System::TMetaClass*TTypedComClass;
  204.  
  205. class DELPHICLASS TTypedComObjectFactory;
  206. class PASCALIMPLEMENTATION TTypedComObjectFactory : public Comobj::TComObjectFactory 
  207. {
  208.     typedef Comobj::TComObjectFactory inherited;
  209.     
  210. private:
  211.     _di_ITypeInfo FClassInfo;
  212.     
  213. public:
  214.     __fastcall TTypedComObjectFactory(TComServerObject* ComServer, System::TMetaClass* TypedComClass, const 
  215.         GUID &ClassID, TClassInstancing Instancing);
  216.     _di_ITypeInfo __fastcall GetInterfaceTypeInfo(int TypeFlags);
  217.     virtual void __fastcall UpdateRegistry(bool Register);
  218.     __property _di_ITypeInfo ClassInfo = {read=FClassInfo};
  219. public:
  220.     /* TComObjectFactory.Destroy */ __fastcall virtual ~TTypedComObjectFactory(void) { }
  221.     
  222. };
  223.  
  224. class DELPHICLASS TAutoObject;
  225. class PASCALIMPLEMENTATION TAutoObject : public Comobj::TTypedComObject 
  226. {
  227.     typedef Comobj::TTypedComObject inherited;
  228.     
  229. private:
  230.     void *__IDispatch;    /* IDispatch */
  231.     
  232. public:
  233.     operator IDispatch*(void) { return (IDispatch*)&__IDispatch; }
  234.     
  235. protected:
  236.     virtual HRESULT __stdcall GetIDsOfNames(const GUID &IID, void * Names, int NameCount, int LocaleID, 
  237.         void * DispIDs);
  238.     virtual HRESULT __stdcall GetTypeInfo(int Index, int LocaleID, /* out */ void *TypeInfo);
  239.     virtual HRESULT __stdcall GetTypeInfoCount(/* out */ int &Count);
  240.     virtual HRESULT __stdcall Invoke(int DispID, const GUID &IID, int LocaleID, Word Flags, void *Params
  241.         , void * VarResult, void * ExcepInfo, void * ArgErr);
  242. public:
  243.     /* TComObject.Create */ __fastcall TAutoObject(void) : Comobj::TTypedComObject() { }
  244.     /* TComObject.CreateAggregated */ __fastcall TAutoObject(const _di_IUnknown Controller) : Comobj::TTypedComObject(
  245.         Controller) { }
  246.     /* TComObject.CreateFromFactory */ __fastcall TAutoObject(TComObjectFactory* Factory, const _di_IUnknown 
  247.         Controller) : Comobj::TTypedComObject(Factory, Controller) { }
  248.     /* TComObject.Destroy */ __fastcall virtual ~TAutoObject(void) { }
  249.     
  250. };
  251.  
  252. typedef System::TMetaClass*TAutoClass;
  253.  
  254. class DELPHICLASS TAutoObjectFactory;
  255. class PASCALIMPLEMENTATION TAutoObjectFactory : public Comobj::TTypedComObjectFactory 
  256. {
  257.     typedef Comobj::TTypedComObjectFactory inherited;
  258.     
  259. private:
  260.     _di_ITypeInfo FDispTypeInfo;
  261.     System::TInterfaceEntry *FDispIntfEntry;
  262.     
  263. public:
  264.     __fastcall TAutoObjectFactory(TComServerObject* ComServer, System::TMetaClass* AutoClass, const GUID 
  265.         &ClassID, TClassInstancing Instancing);
  266.     virtual System::PInterfaceEntry __fastcall GetIntfEntry(const GUID &Guid);
  267.     __property System::PInterfaceEntry DispIntfEntry = {read=FDispIntfEntry};
  268.     __property _di_ITypeInfo DispTypeInfo = {read=FDispTypeInfo};
  269. public:
  270.     /* TComObjectFactory.Destroy */ __fastcall virtual ~TAutoObjectFactory(void) { }
  271.     
  272. };
  273.  
  274. class DELPHICLASS TAutoIntfObject;
  275. class PASCALIMPLEMENTATION TAutoIntfObject : public System::TInterfacedObject 
  276. {
  277.     typedef System::TInterfacedObject inherited;
  278.     
  279. private:
  280.     void *__IDispatch;    /* IDispatch */
  281.     void *__ISupportErrorInfo;    /* ISupportErrorInfo */
  282.     
  283. public:
  284.     operator ISupportErrorInfo*(void) { return (ISupportErrorInfo*)&__ISupportErrorInfo; }
  285.     operator IDispatch*(void) { return (IDispatch*)&__IDispatch; }
  286.     
  287. private:
  288.     _di_ITypeInfo FDispTypeInfo;
  289.     System::TInterfaceEntry *FDispIntfEntry;
  290.     GUID FDispIID;
  291.     
  292. protected:
  293.     HRESULT __stdcall GetIDsOfNames(const GUID &IID, void * Names, int NameCount, int LocaleID, void * 
  294.         DispIDs);
  295.     HRESULT __stdcall GetTypeInfo(int Index, int LocaleID, /* out */ void *TypeInfo);
  296.     HRESULT __stdcall GetTypeInfoCount(/* out */ int &Count);
  297.     HRESULT __stdcall Invoke(int DispID, const GUID &IID, int LocaleID, Word Flags, void *Params, void * 
  298.         VarResult, void * ExcepInfo, void * ArgErr);
  299.     HRESULT __stdcall InterfaceSupportsErrorInfo(const GUID &iid);
  300.     
  301. public:
  302.     __fastcall TAutoIntfObject(const _di_ITypeLib TypeLib, const GUID &DispIntf);
  303.     virtual HRESULT __fastcall SafeCallException(System::TObject* ExceptObject, void * ExceptAddr);
  304.     __property System::PInterfaceEntry DispIntfEntry = {read=FDispIntfEntry};
  305.     __property _di_ITypeInfo DispTypeInfo = {read=FDispTypeInfo};
  306.     __property GUID DispIID = {read=FDispIID};
  307. public:
  308.     /* TInterfacedObject.Destroy */ __fastcall virtual ~TAutoIntfObject(void) { }
  309.     
  310. };
  311.  
  312. class DELPHICLASS EOleError;
  313. class PASCALIMPLEMENTATION EOleError : public Sysutils::Exception 
  314. {
  315.     typedef Sysutils::Exception inherited;
  316.     
  317. public:
  318.     /* Exception.Create */ __fastcall EOleError(const System::AnsiString Msg) : Sysutils::Exception(Msg
  319.         ) { }
  320.     /* Exception.CreateFmt */ __fastcall EOleError(const System::AnsiString Msg, const System::TVarRec 
  321.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  322.     /* Exception.CreateRes */ __fastcall EOleError(int Ident, Extended Dummy) : Sysutils::Exception(Ident
  323.         , Dummy) { }
  324.     /* Exception.CreateResFmt */ __fastcall EOleError(int Ident, const System::TVarRec * Args, const int 
  325.         Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  326.     /* Exception.CreateHelp */ __fastcall EOleError(const System::AnsiString Msg, int AHelpContext) : Sysutils::
  327.         Exception(Msg, AHelpContext) { }
  328.     /* Exception.CreateFmtHelp */ __fastcall EOleError(const System::AnsiString Msg, const System::TVarRec 
  329.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  330.         ) { }
  331.     /* Exception.CreateResHelp */ __fastcall EOleError(int Ident, int AHelpContext) : Sysutils::Exception(
  332.         Ident, AHelpContext) { }
  333.     /* Exception.CreateResFmtHelp */ __fastcall EOleError(int Ident, const System::TVarRec * Args, const 
  334.         int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext) { }
  335.     
  336. public:
  337.     /* TObject.Destroy */ __fastcall virtual ~EOleError(void) { }
  338.     
  339. };
  340.  
  341. class DELPHICLASS EOleSysError;
  342. class PASCALIMPLEMENTATION EOleSysError : public Comobj::EOleError 
  343. {
  344.     typedef Comobj::EOleError inherited;
  345.     
  346. private:
  347.     int FErrorCode;
  348.     
  349. public:
  350.     __fastcall EOleSysError(const System::AnsiString Message, int ErrorCode, int HelpContext);
  351.     __property int ErrorCode = {read=FErrorCode, write=FErrorCode, nodefault};
  352. public:
  353.     /* Exception.CreateFmt */ __fastcall EOleSysError(const System::AnsiString Msg, const System::TVarRec 
  354.         * Args, const int Args_Size) : Comobj::EOleError(Msg, Args, Args_Size) { }
  355.     /* Exception.CreateRes */ __fastcall EOleSysError(int Ident, Extended Dummy) : Comobj::EOleError(Ident
  356.         , Dummy) { }
  357.     /* Exception.CreateResFmt */ __fastcall EOleSysError(int Ident, const System::TVarRec * Args, const 
  358.         int Args_Size) : Comobj::EOleError(Ident, Args, Args_Size) { }
  359.     /* Exception.CreateHelp */ __fastcall EOleSysError(const System::AnsiString Msg, int AHelpContext) : 
  360.         Comobj::EOleError(Msg, AHelpContext) { }
  361.     /* Exception.CreateFmtHelp */ __fastcall EOleSysError(const System::AnsiString Msg, const System::TVarRec 
  362.         * Args, const int Args_Size, int AHelpContext) : Comobj::EOleError(Msg, Args, Args_Size, AHelpContext
  363.         ) { }
  364.     /* Exception.CreateResHelp */ __fastcall EOleSysError(int Ident, int AHelpContext) : Comobj::EOleError(
  365.         Ident, AHelpContext) { }
  366.     /* Exception.CreateResFmtHelp */ __fastcall EOleSysError(int Ident, const System::TVarRec * Args, const 
  367.         int Args_Size, int AHelpContext) : Comobj::EOleError(Ident, Args, Args_Size, AHelpContext) { }
  368.     
  369. public:
  370.     /* TObject.Destroy */ __fastcall virtual ~EOleSysError(void) { }
  371.     
  372. };
  373.  
  374. class DELPHICLASS EOleException;
  375. class PASCALIMPLEMENTATION EOleException : public Comobj::EOleSysError 
  376. {
  377.     typedef Comobj::EOleSysError inherited;
  378.     
  379. private:
  380.     System::AnsiString FSource;
  381.     System::AnsiString FHelpFile;
  382.     
  383. public:
  384.     __fastcall EOleException(const System::AnsiString Message, int ErrorCode, const System::AnsiString 
  385.         Source, const System::AnsiString HelpFile, int HelpContext);
  386.     __property System::AnsiString HelpFile = {read=FHelpFile, write=FHelpFile};
  387.     __property System::AnsiString Source = {read=FSource, write=FSource};
  388. public:
  389.     /* Exception.CreateFmt */ __fastcall EOleException(const System::AnsiString Msg, const System::TVarRec 
  390.         * Args, const int Args_Size) : Comobj::EOleSysError(Msg, Args, Args_Size) { }
  391.     /* Exception.CreateRes */ __fastcall EOleException(int Ident, Extended Dummy) : Comobj::EOleSysError(
  392.         Ident, Dummy) { }
  393.     /* Exception.CreateResFmt */ __fastcall EOleException(int Ident, const System::TVarRec * Args, const 
  394.         int Args_Size) : Comobj::EOleSysError(Ident, Args, Args_Size) { }
  395.     /* Exception.CreateHelp */ __fastcall EOleException(const System::AnsiString Msg, int AHelpContext)
  396.          : Comobj::EOleSysError(Msg, AHelpContext) { }
  397.     /* Exception.CreateFmtHelp */ __fastcall EOleException(const System::AnsiString Msg, const System::TVarRec 
  398.         * Args, const int Args_Size, int AHelpContext) : Comobj::EOleSysError(Msg, Args, Args_Size, AHelpContext
  399.         ) { }
  400.     /* Exception.CreateResHelp */ __fastcall EOleException(int Ident, int AHelpContext) : Comobj::EOleSysError(
  401.         Ident, AHelpContext) { }
  402.     /* Exception.CreateResFmtHelp */ __fastcall EOleException(int Ident, const System::TVarRec * Args, 
  403.         const int Args_Size, int AHelpContext) : Comobj::EOleSysError(Ident, Args, Args_Size, AHelpContext
  404.         ) { }
  405.     
  406. public:
  407.     /* TObject.Destroy */ __fastcall virtual ~EOleException(void) { }
  408.     
  409. };
  410.  
  411. struct TCallDesc;
  412. typedef TCallDesc *PCallDesc;
  413.  
  414. #pragma pack(push, 1)
  415. struct TCallDesc
  416. {
  417.     Byte CallType;
  418.     Byte ArgCount;
  419.     Byte NamedArgCount;
  420.     Byte ArgTypes[256];
  421. } ;
  422. #pragma pack(pop)
  423.  
  424. struct TDispDesc;
  425. typedef TDispDesc *PDispDesc;
  426.  
  427. #pragma pack(push, 1)
  428. struct TDispDesc
  429. {
  430.     int DispID;
  431.     Byte ResType;
  432.     TCallDesc CallDesc;
  433. } ;
  434. #pragma pack(pop)
  435.  
  436. typedef HRESULT __stdcall (*TCoCreateInstanceExProc)(const GUID &clsid, _di_IUnknown unkOuter, int dwClsCtx
  437.     , Activex::PCoServerInfo ServerInfo, int dwCount, Activex::PMultiQIArray rgmqResults);
  438.  
  439. //-- var, const, procedure ---------------------------------------------------
  440. extern PACKAGE HRESULT __fastcall HandleSafeCallException(System::TObject* ExceptObject, void * ExceptAddr
  441.     , const GUID &ErrorIID, const System::WideString ProgID, const System::WideString HelpFileName);
  442. extern PACKAGE void __fastcall OleError(HRESULT ErrorCode);
  443. extern PACKAGE void __fastcall OleCheck(HRESULT Result);
  444. extern PACKAGE GUID __fastcall StringToGUID(const System::AnsiString S);
  445. extern PACKAGE System::AnsiString __fastcall GUIDToString(const GUID &ClassID);
  446. extern PACKAGE GUID __fastcall ProgIDToClassID(const System::AnsiString ProgID);
  447. extern PACKAGE System::AnsiString __fastcall ClassIDToProgID(const GUID &ClassID);
  448. extern PACKAGE void __fastcall CreateRegKey(const System::AnsiString Key, const System::AnsiString ValueName
  449.     , const System::AnsiString Value);
  450. extern PACKAGE void __fastcall DeleteRegKey(const System::AnsiString Key);
  451. extern PACKAGE _di_IUnknown __fastcall CreateComObject(const GUID &ClassID);
  452. extern PACKAGE _di_IUnknown __fastcall CreateRemoteComObject(const System::WideString MachineName, const 
  453.     GUID &ClassID);
  454. extern PACKAGE _di_IDispatch __fastcall CreateOleObject(const System::AnsiString ClassName);
  455. extern PACKAGE _di_IDispatch __fastcall GetActiveOleObject(const System::AnsiString ClassName);
  456. extern PACKAGE wchar_t * __fastcall StringToLPOLESTR(const System::AnsiString Source);
  457. extern PACKAGE void __fastcall RegisterComServer(const System::AnsiString DLLName);
  458. extern PACKAGE void __fastcall DispatchInvoke(const _di_IDispatch Dispatch, PCallDesc CallDesc, Activex::PDispIDList 
  459.     DispIDs, void * Params, System::PVariant Result);
  460. extern PACKAGE void __fastcall DispatchInvokeError(int Status, const tagEXCEPINFO &ExcepInfo);
  461. extern PACKAGE void __fastcall ReadPropFromBag(_di_IPropertyBag PropBag, _di_IErrorLog ErrorLog, const 
  462.     System::AnsiString Name, System::Variant &Value);
  463. extern PACKAGE void __fastcall PutPropInBag(_di_IPropertyBag PropBag, const System::AnsiString Name, 
  464.     const System::Variant &Value);
  465. extern PACKAGE TComClassManager* __fastcall ComClassManager(void);
  466.  
  467. }    /* namespace Comobj */
  468. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  469. using namespace Comobj;
  470. #endif
  471. //-- end unit ----------------------------------------------------------------
  472. #endif    // ComObj
  473.